﻿

Partial Class MasterPage
    Inherits System.Web.UI.MasterPage

    Public home, info, cakes As String
    Dim currPage As String

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim fi As System.IO.FileInfo = New System.IO.FileInfo(System.Web.HttpContext.Current.Request.Url.AbsolutePath)
        currPage = fi.Name
        Activated(currPage)
    End Sub

    Sub Activated(ByVal currentPage As String)
        Select Case currPage
            Case "index.aspx"
                home = "current_page_item"
                info = String.Empty
            Case "info.aspx"
                home = String.Empty
                info = "current_page_item"
            Case Else
                home = "current_page_item"
                info = String.Empty
        End Select
    End Sub

End Class

